home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / boostrs.arc / MOVEBG.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-11-03  |  991 b   |  24 lines
  1. { ------------------------------------------------
  2.   MOVEBG moves one part of the screen to another,
  3.          while preserving the background.
  4.   ------------------------------------------------ }
  5.   Procedure MOVEBG ( Page : HeapBuf;
  6.                        X1 : ColumnType;
  7.                        Y1 : RowType;
  8.                        X2 : ColumnType;
  9.                        Y2 : RowType;
  10.                        X3 : ColumnType;
  11.                        Y3 : RowType );  external 'MoveBg.Com';
  12.  
  13.  {          Type HeapBuf = ^AnyBuf;
  14.                   AnyBuf = record
  15.                               Screen : array[1..4000] of byte;
  16.                            end;
  17.  
  18.             Moves block defined by upper left and lower right
  19.             coordinates (X1,Y1),(X2,Y2) to a block beginning
  20.             at upper left coordinates (X3,Y3).  The orginal
  21.             block is saved, the background 'Page' refreshed,
  22.             then the block is redisplayed at its new position. }
  23.  
  24.